Unit Timer;

Interface

Procedure Clock(Tespera:single);


(*************)

Implementation


Uses DOS;


var H,M,S,S100  : word;
   startclock,stopclock,I : single;


Procedure Clock(Tespera:single);

begin
   GetTime(H,M,S,S100);
   StartClock:=(3600*H)+(60*M)+S+(S100/100);
repeat
    GetTime(H,M,S,S100);
    StopClock:=(3600*H)+(60*M)+S+(S100/100);
Until StopClock-StartClock>Tespera;
end;

end.
